home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / soundxx.exe / SOUNDXS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-08-29  |  5.9 KB  |  183 lines
  1. VERSION 4.00
  2. Begin VB.Form FrmSoundXSample1 
  3.    Appearance      =   0  'Flat
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "SoundX Sample"
  6.    ClientHeight    =   3555
  7.    ClientLeft      =   2400
  8.    ClientTop       =   4350
  9.    ClientWidth     =   3630
  10.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   3960
  21.    Left            =   2340
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   3555
  26.    ScaleWidth      =   3630
  27.    ShowInTaskbar   =   0   'False
  28.    Top             =   4005
  29.    Width           =   3750
  30.    Begin VB.TextBox Word 
  31.       Height          =   285
  32.       Left            =   240
  33.       TabIndex        =   0
  34.       Top             =   1800
  35.       Width           =   3135
  36.    End
  37.    Begin MSOUNDXXLibCtl.SoundXX SoundX1 
  38.       Left            =   3000
  39.       Top             =   1200
  40.       _ExtentX        =   847
  41.       _ExtentY        =   847
  42.    End
  43.    Begin VB.Label Label5 
  44.       Appearance      =   0  'Flat
  45.       BackColor       =   &H00C0C0C0&
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   $"soundxs1.frx":0000
  48.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   1335
  58.       Left            =   240
  59.       TabIndex        =   8
  60.       Top             =   120
  61.       Width           =   3375
  62.    End
  63.    Begin VB.Label ExtSoundex 
  64.       Alignment       =   2  'Center
  65.       BorderStyle     =   1  'Fixed Single
  66.       Height          =   255
  67.       Left            =   2280
  68.       TabIndex        =   7
  69.       Top             =   3120
  70.       Width           =   1095
  71.    End
  72.    Begin VB.Label Soundex 
  73.       Alignment       =   2  'Center
  74.       BorderStyle     =   1  'Fixed Single
  75.       Height          =   255
  76.       Left            =   2280
  77.       TabIndex        =   6
  78.       Top             =   2760
  79.       Width           =   1095
  80.    End
  81.    Begin VB.Label Metaphone 
  82.       Alignment       =   2  'Center
  83.       BorderStyle     =   1  'Fixed Single
  84.       Height          =   255
  85.       Left            =   2280
  86.       TabIndex        =   5
  87.       Top             =   2400
  88.       Width           =   1095
  89.    End
  90.    Begin VB.Label Label4 
  91.       Appearance      =   0  'Flat
  92.       BackColor       =   &H00C0C0C0&
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "Extended Soundex Output:"
  95.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  96.          Name            =   "MS Sans Serif"
  97.          Size            =   8.25
  98.          Charset         =   0
  99.          Weight          =   400
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   255
  105.       Left            =   240
  106.       TabIndex        =   4
  107.       Top             =   3120
  108.       Width           =   2055
  109.    End
  110.    Begin VB.Label Label3 
  111.       Appearance      =   0  'Flat
  112.       BackColor       =   &H00C0C0C0&
  113.       BackStyle       =   0  'Transparent
  114.       Caption         =   "Soundex Output:"
  115.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  116.          Name            =   "MS Sans Serif"
  117.          Size            =   8.25
  118.          Charset         =   0
  119.          Weight          =   400
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       Height          =   255
  125.       Left            =   240
  126.       TabIndex        =   3
  127.       Top             =   2760
  128.       Width           =   1935
  129.    End
  130.    Begin VB.Label Label2 
  131.       Appearance      =   0  'Flat
  132.       BackColor       =   &H00C0C0C0&
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "Metaphone Output:"
  135.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   255
  145.       Left            =   240
  146.       TabIndex        =   2
  147.       Top             =   2400
  148.       Width           =   1695
  149.    End
  150.    Begin VB.Label Label1 
  151.       Appearance      =   0  'Flat
  152.       BackColor       =   &H00C0C0C0&
  153.       BackStyle       =   0  'Transparent
  154.       Caption         =   "Input Word:"
  155.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  156.          Name            =   "MS Sans Serif"
  157.          Size            =   8.25
  158.          Charset         =   0
  159.          Weight          =   400
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       Height          =   255
  165.       Left            =   240
  166.       TabIndex        =   1
  167.       Top             =   1560
  168.       Width           =   1935
  169.    End
  170. Attribute VB_Name = "FrmSoundXSample1"
  171. Attribute VB_Creatable = False
  172. Attribute VB_Exposed = False
  173. Option Explicit
  174. Private Sub Form_Unload(Cancel As Integer)
  175.     End
  176. End Sub
  177. Private Sub Word_Change()
  178.     SoundX1.Word = Word
  179.     Metaphone = SoundX1.Metaphone
  180.     Soundex = SoundX1.Soundex
  181.     ExtSoundex = SoundX1.ExtSoundex
  182. End Sub
  183.